home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / gfa / mnt_fnc2 / mnt_func.gfa (.txt) < prev    next >
Encoding:
GFA-BASIC Atari  |  1993-10-24  |  2.9 KB  |  154 lines

  1. '
  2. '       BibliothŠque proc‚dures de commande MINITEL Mode Mixte
  3. '
  4. demo
  5. > PROCEDURE demo
  6.   m.init
  7.   m.reset
  8.   m.open.work
  9.   m.clear.home
  10.   m.write("Cool, Ligne 1 OK")
  11.   m.write.mode(10,10,"C'est cool",-1,0,0,-1)
  12.   m.left(19)
  13.   m.delete.char(9)
  14.   m.locate(1,2)
  15.   m.delete(8)
  16.   m.close.work
  17. RETURN
  18. '
  19. > PROCEDURE m.init
  20.   ' initialisation du mnt et de la RS232
  21.   ~XBIOS(15,7,0,174,-1,-1)
  22.   PAUSE 4
  23.   OUT 1,12,27,57,127
  24. RETURN
  25. > PROCEDURE m.open.work
  26.   ' ouverture de la WorkStation
  27.   OPEN "o",#99,"aux:"
  28. RETURN
  29. > PROCEDURE m.close.work
  30.   ' fermeture de la WorkStation
  31.   CLOSE #99
  32. RETURN
  33. '
  34. > PROCEDURE m.reset
  35.   ' reset mode mixte
  36.   OUT 1,27,91,109
  37. RETURN
  38. > PROCEDURE m.cls
  39.   ' cls!
  40.   OUT 1,27,91,50,74
  41. RETURN
  42. > PROCEDURE m.home
  43.   ' home!
  44.   OUT 1,27,91,72
  45. RETURN
  46. > PROCEDURE m.cls.up
  47.   ' efface au dessus et … gauche du curseur
  48.   OUT 1,27,91,49,74
  49. RETURN
  50. > PROCEDURE m.cls.down
  51.   ' efface en dessous et … droite du curseur
  52.   OUT 1,27,91,74
  53. RETURN
  54. > PROCEDURE m.clear.home
  55.   ' cls+home
  56.   m.cls
  57.   m.home
  58. RETURN
  59. > PROCEDURE m.fill
  60.   ' bourrage de ligne
  61.   OUT 1,27,91,75
  62. RETURN
  63. > PROCEDURE m.up(x%)
  64.   ' up
  65.   m.write(""+STR$(x%)+"A")
  66. RETURN
  67. > PROCEDURE m.down(x%)
  68.   ' down
  69.   m.write(""+STR$(x%)+"B")
  70. RETURN
  71. > PROCEDURE m.left(x%)
  72.   ' left
  73.   m.write(""+STR$(x%)+"D")
  74. RETURN
  75. > PROCEDURE m.right(x%)
  76.   ' right
  77.   m.write(""+STR$(x%)+"C")
  78. RETURN
  79. > PROCEDURE m.line.delete
  80.   ' efface la ligne
  81.   OUT 1,27,91,50,75
  82. RETURN
  83. > PROCEDURE m.left.delete
  84.   ' efface … gauche du curseur sur la ligne
  85.   OUT 1,27,91,49,75
  86. RETURN
  87. > PROCEDURE m.insert(x%)
  88.   ' insert x% lignes
  89.   m.write(""+STR$(x%)+"L")
  90. RETURN
  91. > PROCEDURE m.delete(x%)
  92.   ' delete x% lignes
  93.   m.write(""+STR$(x%)+"M")
  94. RETURN
  95. > PROCEDURE m.delete.char(x%)
  96.   ' delete x% caractŠres
  97.   m.write(""+STR$(x%)+"P")
  98. RETURN
  99. '
  100. > PROCEDURE m.locate(x%,y%)
  101.   ' locate
  102.   m.write(""+STR$(y%)+";"+STR$(x%)+"H")
  103. RETURN
  104. > PROCEDURE m.light(flag!)
  105.   ' surlignement
  106.   IF flag!
  107.     OUT 1,27,91,49,109
  108.   ELSE
  109.     OUT 1,27,91,50,50,109
  110.   ENDIF
  111. RETURN
  112. > PROCEDURE m.under(flag!)
  113.   ' soulignement
  114.   IF flag!
  115.     OUT 1,27,91,52,109
  116.   ELSE
  117.     OUT 1,27,91,50,52,109
  118.   ENDIF
  119. RETURN
  120. > PROCEDURE m.invers(flag!)
  121.   ' invers
  122.   IF flag!
  123.     OUT 1,27,91,55,109
  124.   ELSE
  125.     OUT 1,27,91,50,55,109
  126.   ENDIF
  127. RETURN
  128. > PROCEDURE m.flash(flag!)
  129.   ' flash!
  130.   IF flag!
  131.     OUT 1,27,91,53,109
  132.   ELSE
  133.     OUT 1,27,91,50,53,109
  134.   ENDIF
  135. RETURN
  136. > PROCEDURE m.write(script$)
  137.   ' ecriture standard
  138.   PRINT #99,script$;
  139. RETURN
  140. > PROCEDURE m.write.at(x%,y%,script$)
  141.   ' pos AT+ecriture
  142.   m.locate(x%,y%)
  143.   m.write(script$)
  144. RETURN
  145. > PROCEDURE m.write.mode(x%,y%,script$,flg1!,flg2!,flg3!,flg4!)
  146.   ' ecriture+pos+attributs
  147.   m.locate(x%,y%)
  148.   m.light(flg1!)
  149.   m.under(flg2!)
  150.   m.invers(flg3!)
  151.   m.flash(flg4!)
  152.   m.write(script$)
  153. RETURN
  154.